VERSION 5.00
Object = "{194DB270-5D32-4614-93B7-0568F1AC965A}#1.0#0"; "ComUnionComponent.tlb"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm ITGLedgerMain 
   BackColor       =   &H00F7D9C2&
   ClientHeight    =   8085
   ClientLeft      =   225
   ClientTop       =   -1545
   ClientWidth     =   11970
   Icon            =   "ITGLedgerMain.frx":0000
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   StartUpPosition =   3  'Windows Default
   Tag             =   "~"
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture3 
      Align           =   3  'Align Left
      BackColor       =   &H00F7D9C2&
      BorderStyle     =   0  'None
      Height          =   6015
      Left            =   0
      ScaleHeight     =   6015
      ScaleWidth      =   405
      TabIndex        =   8
      Top             =   1785
      Width           =   405
      Begin ComUnionComponentCtl.MenuPanel mpNavigation 
         Height          =   8355
         Left            =   405
         TabIndex        =   11
         Top             =   0
         Width           =   4320
         Object.Visible         =   "True"
         Enabled         =   "True"
         ForegroundColor =   "-2147483630"
         BackgroundColor =   "16243138"
         SelectedTabIndex=   "0"
         SelectedTabText =   "Operation"
         BackColor       =   "194, 217, 247"
         Font            =   "Tahoma, 8.25pt"
         ForeColor       =   "ControlText"
         Location        =   "27, 0"
         Name            =   "MenuPanel"
         Size            =   "288, 557"
         Object.TabIndex        =   "0"
      End
      Begin VB.PictureBox btnNavigation 
         Appearance      =   0  'Flat
         BackColor       =   &H00F7D9C2&
         ForeColor       =   &H80000008&
         Height          =   1965
         Left            =   0
         ScaleHeight     =   1935
         ScaleWidth      =   375
         TabIndex        =   13
         Tag             =   "Navigation Explorer"
         Top             =   0
         Width           =   405
      End
   End
   Begin VB.PictureBox Picture4 
      Align           =   1  'Align Top
      BackColor       =   &H00F7D9C2&
      BorderStyle     =   0  'None
      Height          =   465
      Left            =   0
      ScaleHeight     =   465
      ScaleWidth      =   11970
      TabIndex        =   9
      Top             =   1320
      Width           =   11970
      Begin ComUnionComponentCtl.MenuTab MenuTab1 
         Height          =   360
         Left            =   135
         TabIndex        =   12
         Top             =   75
         Width           =   7395
         Object.Visible         =   "True"
         Enabled         =   "True"
         ForegroundColor =   "-2147483630"
         BackgroundColor =   "16243138"
         TabAutoHideSystemBox=   "True"
         ShowTabCloseButton=   "False"
         BackColor       =   "194, 217, 247"
         Font            =   "Tahoma, 8.25pt"
         ForeColor       =   "ControlText"
         Location        =   "9, 5"
         Name            =   "MenuTab"
         Size            =   "493, 24"
         Object.TabIndex        =   "0"
      End
      Begin VB.Frame Frame3 
         BackColor       =   &H00F7D9C2&
         Height          =   30
         Left            =   -45
         TabIndex        =   10
         Top             =   0
         Width           =   19545
      End
   End
   Begin VB.PictureBox banner 
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H00F7D9C2&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   1320
      Left            =   0
      ScaleHeight     =   1320
      ScaleWidth      =   11970
      TabIndex        =   1
      Top             =   0
      Width           =   11970
      Begin VB.Frame Frame2 
         BackColor       =   &H00F7D9C2&
         Height          =   90
         Left            =   -45
         TabIndex        =   7
         Top             =   900
         Width           =   20880
      End
      Begin VB.Frame Frame1 
         BackColor       =   &H00F7D9C2&
         Height          =   90
         Left            =   -450
         TabIndex        =   6
         Top             =   -45
         Width           =   20880
      End
      Begin VB.PictureBox Picture2 
         BackColor       =   &H00F7D9C2&
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   165
         Picture         =   "ITGLedgerMain.frx":0CCA
         ScaleHeight     =   495
         ScaleWidth      =   2115
         TabIndex        =   5
         Top             =   240
         Width           =   2115
      End
      Begin VB.PictureBox Picture1 
         Height          =   300
         Left            =   11250
         ScaleHeight     =   240
         ScaleWidth      =   420
         TabIndex        =   4
         Top             =   660
         Visible         =   0   'False
         Width           =   480
      End
      Begin VB.ComboBox cboSelection 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "ITGLedgerMain.frx":3D54
         Left            =   6960
         List            =   "ITGLedgerMain.frx":3D56
         TabIndex        =   2
         Top             =   645
         Visible         =   0   'False
         Width           =   4260
      End
      Begin MSComctlLib.Toolbar tbrMain 
         Height          =   330
         Left            =   0
         TabIndex        =   3
         Top             =   990
         Width           =   18945
         _ExtentX        =   33417
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         AllowCustomize  =   0   'False
         Style           =   1
         ImageList       =   "ITGImageList"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   26
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnNew"
               Object.ToolTipText     =   "New (Ctrl+N)"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnEdit"
               Object.ToolTipText     =   "Edit (Ctrl+E)"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnDelete"
               Object.ToolTipText     =   "Delete (Ctrl+D)"
               ImageIndex      =   3
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnNewLine"
               Object.ToolTipText     =   "New Line (Ctrl+Ins)"
               ImageIndex      =   11
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnDeleteLine"
               Object.ToolTipText     =   "Delete Line (Ctrl+Del)"
               ImageIndex      =   12
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnSepDetail"
               Style           =   3
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "btnPost"
               Object.ToolTipText     =   "Post"
               ImageIndex      =   15
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "btnCancel"
               Object.ToolTipText     =   "Cancel"
               ImageIndex      =   16
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnSepPostCancel"
               Style           =   3
            EndProperty
            BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnSave"
               Object.ToolTipText     =   "Save (Ctrl+S)"
               ImageIndex      =   4
            EndProperty
            BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnUndo"
               Object.ToolTipText     =   "Undo Current (Ctrl+Z)"
               ImageIndex      =   5
               BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
                  NumButtonMenus  =   3
                  BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                     Key             =   "btnUndoCurrent"
                     Text            =   "Undo Current"
                  EndProperty
                  BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                     Enabled         =   0   'False
                     Key             =   "btnUndoAll"
                     Text            =   "Undo All"
                  EndProperty
                  BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                     Object.Visible         =   0   'False
                     Key             =   "btnUndoCurrentLine"
                     Text            =   "Undo Current Line"
                  EndProperty
               EndProperty
            EndProperty
            BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnFind"
               Object.ToolTipText     =   "Find (Crtl+F)"
               ImageIndex      =   6
               BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
                  NumButtonMenus  =   2
                  BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                     Enabled         =   0   'False
                     Key             =   "btnFindP"
                     Text            =   "Primary"
                  EndProperty
                  BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                     Key             =   "btnFindC"
                     Text            =   "Comprehensive"
                  EndProperty
               EndProperty
            EndProperty
            BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnFirst"
               Object.ToolTipText     =   "First Record"
               ImageIndex      =   7
            EndProperty
            BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnPrevious"
               Object.ToolTipText     =   "Previous Record"
               ImageIndex      =   8
            EndProperty
            BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnNext"
               Object.ToolTipText     =   "Next Record"
               ImageIndex      =   9
            EndProperty
            BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnLast"
               Object.ToolTipText     =   "Last Record"
               ImageIndex      =   10
            EndProperty
            BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnPrint"
               Object.ToolTipText     =   "Print (Ctrl+P)"
               ImageIndex      =   13
            EndProperty
            BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnClose"
               Object.ToolTipText     =   "Close Window (Ctrl+X)"
               ImageIndex      =   14
            EndProperty
            BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnAccount"
               Object.ToolTipText     =   "Account Affected"
               ImageIndex      =   17
            EndProperty
            BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnReference"
               Object.ToolTipText     =   "Reference Transactions"
               ImageIndex      =   18
            EndProperty
            BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "btnNotify"
               Object.ToolTipText     =   "Alert Message"
               ImageIndex      =   19
            EndProperty
         EndProperty
      End
   End
   Begin VB.Timer Timer2 
      Interval        =   1
      Left            =   7080
      Top             =   2160
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   6645
      Top             =   2160
   End
   Begin MSComctlLib.StatusBar sbMain 
      Align           =   2  'Align Bottom
      Height          =   285
      Left            =   0
      TabIndex        =   0
      Top             =   7800
      Width           =   11970
      _ExtentX        =   21114
      _ExtentY        =   503
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Bevel           =   0
            Object.Width           =   3351
            MinWidth        =   3351
            Picture         =   "ITGLedgerMain.frx":3D58
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Bevel           =   0
            Object.Width           =   8467
            MinWidth        =   8467
            Text            =   "Providing innovative IT solutions to cater to your business needs."
            TextSave        =   "Providing innovative IT solutions to cater to your business needs."
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   2646
            MinWidth        =   2646
            Text            =   "User"
            TextSave        =   "User"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   2
            MinWidth        =   2
            Text            =   "Department"
            TextSave        =   "Department"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   2
            MinWidth        =   2
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   6174
            MinWidth        =   6174
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSComctlLib.ImageList ITGImageList 
      Left            =   6000
      Top             =   2400
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   21
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":4FFC
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":5396
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":5730
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":5CCA
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":6064
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":63FE
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":6798
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":6B32
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":6ECC
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":7266
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":7600
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":799A
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":7D34
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":80CE
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":8468
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":8802
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":8B9C
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":8F36
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":92D0
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":966A
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ITGLedgerMain.frx":9A04
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Visible         =   0   'False
      Begin VB.Menu mnuFileNew 
         Caption         =   "&New"
         Enabled         =   0   'False
         Shortcut        =   ^N
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileEdit 
         Caption         =   "&Edit"
         Enabled         =   0   'False
         Shortcut        =   ^E
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileDelete 
         Caption         =   "&Delete"
         Enabled         =   0   'False
         Shortcut        =   ^D
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileNewLine 
         Caption         =   "New Line (Ctrl+Ins)"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileDeleteLine 
         Caption         =   "Delete Line (Ctrl+Del)"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSep2 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFilePost 
         Caption         =   "Post Record"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileCancel 
         Caption         =   "Cancel Record"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileAccount 
         Caption         =   "Accounts Affected"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileReference 
         Caption         =   "Reference"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileNotify 
         Caption         =   "Notify"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSep3 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileSave 
         Caption         =   "&Save"
         Enabled         =   0   'False
         Shortcut        =   ^S
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileUndo 
         Caption         =   "Undo Current"
         Enabled         =   0   'False
         Shortcut        =   ^Z
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileUndoAll 
         Caption         =   "Undo All"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSep4 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileFind 
         Caption         =   "&Find..."
         Enabled         =   0   'False
         Shortcut        =   ^F
         Visible         =   0   'False
      End
      Begin VB.Menu mnuFileFindC 
         Caption         =   "Comprehensive Search"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSep5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFilePrint 
         Caption         =   "&Print"
         Enabled         =   0   'False
         Shortcut        =   ^P
      End
      Begin VB.Menu mnuFileClose 
         Caption         =   "Close Window"
         Enabled         =   0   'False
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuSep6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileLogOff 
         Caption         =   "Log-off"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuDetail 
      Caption         =   "Detail"
      Visible         =   0   'False
      Begin VB.Menu mnuDetailAdd 
         Caption         =   "Add New Line"
      End
      Begin VB.Menu mnuDetailRemove 
         Caption         =   "Remove Line"
      End
      Begin VB.Menu mnuDetailUndoCurrent 
         Caption         =   "Undo Current Line"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuDetailUndoAll 
         Caption         =   "Undo All Line"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuImage 
      Caption         =   "Image"
      Visible         =   0   'False
      Begin VB.Menu mnuImageAdd 
         Caption         =   "Add Image"
      End
      Begin VB.Menu mnuImageClear 
         Caption         =   "Clear Image"
      End
   End
   Begin VB.Menu mnuApproval 
      Caption         =   "Approval"
      Visible         =   0   'False
      Begin VB.Menu mnuApprovalC 
         Caption         =   "Credit Approval"
      End
      Begin VB.Menu mnuApprovalP 
         Caption         =   "Price Approval"
      End
      Begin VB.Menu mnuApprovalS 
         Caption         =   "Stock Availability"
      End
      Begin VB.Menu mnuSep13 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuApprovalDetails 
         Caption         =   "Transaction Details"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuSubReportAccounts 
      Caption         =   "SubReportAccounts"
      Visible         =   0   'False
      Begin VB.Menu mnuSubRep11 
         Caption         =   "Chart of Accounts List"
      End
      Begin VB.Menu mnuSubRep12 
         Caption         =   "Expenses Budget"
      End
      Begin VB.Menu mnuSubRep13 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSubRep14 
         Caption         =   "Trial Balance"
      End
      Begin VB.Menu mnuSubRep15 
         Caption         =   "Balance Sheets"
      End
      Begin VB.Menu mnuSubRep16 
         Caption         =   "Income Statement"
      End
   End
   Begin VB.Menu mnuLabor 
      Caption         =   "Labor"
      Visible         =   0   'False
      Begin VB.Menu mnuApproved 
         Caption         =   "Approved"
      End
   End
End
Attribute VB_Name = "ITGLedgerMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'IT Group Inc. 2005.09.23

Option Explicit

Dim FrmObj As Form, TempObj As Form
Public sBit As String

Private lBlockLogOn As Boolean

Dim Accessible As Boolean
Dim Find As Boolean

Dim nHide As Integer


Function mpNavValue() As Boolean
    If lClicked = True Then
        sTabTxt = mpNavigation.SelectedTabText
        sNodeCode = mpNavigation.SelectedNodeCode
        sNodeTxt = mpNavigation.SelectedNodeText
        sLink = mpNavigation.SelectedNodeLink
        nNodeIndex = mpNavigation.SelectedNodeIndex
        mpNavValue = True
    End If
End Function

Private Sub btnNavigation_Click()
    'If IsExpanded = False Then
        Picture3.Width = maxWidth
        nHide = Expanded
        Timer2.Enabled = False
        mpNavigation.SetFocus
        IsExpanded = True
    'End If
End Sub

Private Sub cboSelection_Change()
    sDivision = GetValueFrTable("cPCCode", "PROFITCENTER", "cDescription = '" & Trim(cboSelection.Text) & "'")
End Sub

Private Sub cboSelection_Click()
    sDivision = GetValueFrTable("cPCCode", "PROFITCENTER", "cDescription = '" & Trim(cboSelection.Text) & "'")
End Sub

Private Sub MDIForm_Activate()
    Me.Caption = "ComUnion CAS" & ": " & cCompany
End Sub

Private Sub MDIForm_Load()
On Error Resume Next
    Dim strConn As String
    Dim rsFormAccess As New Recordset
    Dim cmdFormAccess As New ADODB.Command

    BitEnabled ITGLedgerMain, Me, tbrMain, , , , , , , , , , True
    BitVisible tbrMain
    COName = GetValueFrTable("cCompanyName", "Company", " cCompanyID = '" & COID & "' ", False)
    cAddress1 = GetValueFrTable("cAddress1", "Company", " cCompanyID = '" & COID & "' ", False)
    cAddress2 = GetValueFrTable("cAddress2", "Company", " cCompanyID = '" & COID & "' ", False)
    
    Call LoadComboValues(cboSelection, "cDescription", "PROFITCENTER", "WHERE cCompanyID = '" & Trim(COID) & "'")
    'cboSelection.Text = GetValueFrTable("cDescription", "PROFITCENTER", "cPCCode = '" & GetValueFrTable("cDivision", "SEC_USER", "Userid = '" & Trim(SecUserID) & "'", True) & "' ")
    'sDivision = GetValueFrTable("cPCCode", "PROFITCENTER", "cDescription = '" & Trim(cboSelection.Text) & "'")
    sbMain.Panels(3) = SecUserName
    sbMain.Panels(4) = SecUserID
    sbMain.Panels(5) = COID
    sbMain.Panels(6) = Format(Now, "dddd, mmmm dd, yyyy hh:MM:ss AM/PM")
    
    mpNavigation.TabItemVisible(1) = True
    mpNavigation.TabItemVisible(3) = True

    DrawVertical btnNavigation
    
    MenuTab1.Left = 4095
    
    sTabTxt = "Setup"
    sNodeCode = "TL10"
    sNodeTxt = "Reminders"
    nNodeIndex = 225
    sLink = "frmReminders"
    
    MenuTab1.AddTab nNodeIndex, sNodeTxt, mpNavigation.SelectedNodeImage, sLink

    Set FrmName = Forms.Add(sLink)
    
    oContainer.SetUpContainer FrmName, True
    'FrmName.WindowState = 2
    FrmName.Show
    FrmName.Caption = ""
    lClicked = True
    
    GetEmptySpace
    
End Sub

Sub ShowPicture()
Dim stm As New ADODB.Stream
Dim rs As New Recordset

    sSQL = "Select iPhoto From COMPANY Where cCompanyID = '" & COID & "'"
    rs.Open sSQL, cn, adOpenKeyset

    If (RTrim(LTrim(rs!iPhoto)) & "") <> "" Then
        stm.Type = adTypeBinary
        stm.Open
        stm.Write rs!iPhoto
        stm.SaveToFile "\logo.tmp"

        Picture1.Picture = LoadPicture("\logo.tmp")
        Kill ("\logo.tmp")
        stm.Close
    End If
    Set stm = Nothing
    Set rs = Nothing
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
        
    If Not (ActiveForm Is Nothing) Then
        If ActiveForm.Name <> "frmComUnionNavigator" And ActiveForm.Name <> "frmComUnionMenuTab" _
            And ActiveForm.Name <> "frmToolContainer" Then
            
            Cancel = True
            MsgBox "There are Active form(s)... Unable to exit application.", vbCritical, Caption
            lBlockLogOn = True
        Else
            Unload frmComUnionNavigator
            Unload frmComUnionMenuTab
        End If
    Else
        sSQL = "UPDATE SEC_USER SET PassErrCtr = 0, Locked = 0, InUse = 0 WHERE UserID = '" & Trim(sUserName) & "' "
        cn.Execute sSQL
        
        Unload frmComUnionNavigator
        Unload frmComUnionMenuTab
    End If

End Sub


Private Sub MDIForm_Resize()
    tbrMain.Width = Screen.Width
    Frame2.Width = Screen.Width + 30
    Frame3.Width = Screen.Width + 30
    
    mpNavigation.Height = IIf(Picture3.Height + mpNavigation.Top > 0, Picture3.Height + mpNavigation.Top, mpNavigation.Height)

    MenuTab1.Width = IIf(Picture4.Width - Picture3.Width - 30 > 0, Picture4.Width - Picture3.Width - 30, MenuTab1.Width)
    MenuTab1.Left = nHide '135 '4095
    tbrMain.Width = banner.Width
    
    GetEmptySpace
    
End Sub

Private Sub MDIForm_Terminate()
    Set ITGLedgerMain = Nothing
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    Set rs = Nothing
    Set cn = Nothing
    WheelUnHook 'dave
    Exit Sub
End Sub

Private Sub MenuTab1_Click()
On Error Resume Next
    If MenuTab1.SelectedMenuTabLink = "" Then Exit Sub ' added validation
    FrmName.TBBitReload
    mpNavigation.SetFocus 'dave
End Sub

Private Sub MenuTab1_SelectedTabChanged()
    For Each TempObj In Forms
        If TempObj.Name = MenuTab1.SelectedMenuTabLink Then
            Set FrmName = TempObj
            
            On Error GoTo ErrHandler
            
            oContainer.ShowMyContainer
            
            Exit For
ErrHandler:
            If Not mpNavigation.SelectedNodeCode = "TL06" Or mpNavigation.SelectedNodeCode = "RC01" Or mpNavigation.SelectedNodeCode = "RC02" Then
                TempObj.WindowState = 0
                TempObj.Width = ITGLedgerMain.Width - ITGLedgerMain.Picture3.Width - 540
                If TempObj.Height < (ITGLedgerMain.Height - (ITGLedgerMain.banner.Height + 1610)) Then
                    TempObj.Height = (ITGLedgerMain.Height - (ITGLedgerMain.banner.Height + 1610))
                Else
                    TempObj.Height = TempObj.Height
                End If
                
                frmToolContainer.OnObjChildLoad
                 
            End If
            TempObj.Show
            TempObj.Caption = ""
        End If
    Next
End Sub

Private Sub mnuApprovalC_Click()
    If Not mlPApproved Then
        MsgBox "Cannot credit approve sales order which price is not yet approved.", vbInformation, "iTG Finance Manager"
        Exit Sub
    End If
    frmToolApproval.mApprovalType = CreditApproval
    frmToolApproval.TransApproved
End Sub

Private Sub mnuApprovalP_Click()
    frmToolApproval.mApprovalType = PriceApproval
    frmToolApproval.TransApproved
End Sub

Private Sub mnuApprovalS_Click()
    frmToolApproval.mApprovalType = StockAvailability
    frmToolApproval.TransApproved
End Sub

Private Sub mnuApproved_Click()
'    frmToolApproval.POApproval
End Sub

Private Sub mnuDetailAdd_Click()
    FrmName.TBNewLine
End Sub

Private Sub mnuDetailRemove_Click()
    FrmName.TBDeleteLine
End Sub

Private Sub mnuDetailUndoAll_Click()
    'ActiveForm.TBUndoLineAll
    FrmName.TBUndoLineAll
End Sub

Private Sub mnuDetailUndoCurrent_Click()
    'ActiveForm.TBUndoLineCurrent
    FrmName.TBUndoLineCurrent
End Sub

Private Sub mnuFileCancel_Click()
    'CancelRecord
    FrmName.TBCancelRecord
End Sub

Private Sub mnuFileClose_Click()

On Error GoTo ErrHandler
1:  oContainer.SetUpContainer FrmName, False
    If ActiveForm Is Nothing Then
        BitEnabled ITGLedgerMain, Me, tbrMain, , , , , , , , , , True
        BitVisible tbrMain
        tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
    End If
    Exit Sub
ErrHandler:
    FrmName.Tag = 0
    GoTo 1
End Sub

Private Sub mnuFileDelete_Click()
'    DeleteRecord
    FrmName.TBDelete
End Sub

Private Sub mnuFileDeleteLine_Click()
    FrmName.TBDeleteLine
    'DeleteLine
End Sub

Private Sub mnuFileEdit_Click()
    'EditRecord
    FrmName.TBEdit
End Sub

Private Sub mnuFileExit_Click()
    Unload Me
    Exit Sub
End Sub

Private Sub mnuFileFind_Click()
    If ActiveForm Is Nothing Then
        frmITGSearch.Show 'vbModal
    Else
        FrmName.TBFindPrimary
    End If
End Sub

Private Sub mnuFileFindC_Click()
    'FindRecord
    On Error Resume Next
    If ActiveForm Is Nothing Then
        frmITGSearch.Show 'vbModal
    Else
        FrmName.TBFind
    End If
End Sub

Private Sub mnuFileLogOff_Click()
    Unload Me
    If lBlockLogOn Then
        lBlockLogOn = False
        Exit Sub
    End If
    Load frmLogon
    frmLogon.Show
End Sub

Private Sub mnuFileNew_Click()
    'AddNewRecord
    FrmName.TBNew
End Sub

Private Sub mnuFileNewLine_Click()
    FrmName.TBNewLine
    'NewLine
End Sub

Private Sub mnuFilePost_Click()
    'PostRecord
    FrmName.TBPostRecord
End Sub

Private Sub mnuFilePrint_Click()
    'PrintRecord
    FrmName.TBPrintRecord
    '
    MenuTab1.AddTab "9", "Report Viewer- " & cModule, , "frmReportViewer"
End Sub

Private Sub mnuFileSave_Click()
    'SaveRecord
    FrmName.TBSave
End Sub
Private Sub mnuFileUndo_Click()
    'UndoAllRecord
    FrmName.TBUndoAll
End Sub

Private Sub mnuFileUndoAll_Click()
    'UndoAllRecord
    FrmName.TBUndoAll
End Sub

Private Sub mnuFileAccount_Click()
    'AccountAffected
    FrmName.TBAccountAffected
End Sub

Private Sub mnuFileReference_Click()
    'ReferenceTrans
    FrmName.TBReference
End Sub

Private Sub mnuFileNotify_Click()
    'NotifyTrans
    FrmName.TBNotify
End Sub

Private Sub mnuImageAdd_Click()
    'ActiveForm.TBBrowseImage
    FrmName.TBBrowseImage
    
End Sub

Private Sub mnuImageClear_Click()
    FrmName.TBClearImage
    'ActiveForm.TBClearImage
End Sub

Private Sub mnuSubRep11_Click()
    cReport = "RP06-01"
    frmReportCriteria.Show
    frmReportCriteria.ZOrder
End Sub
 
Public Sub mpNavigation_ElementClicked()
On Error Resume Next
    Call mpNavValue
    Find = False
    
    If sTabTxt = "Operation" Then
        If mpNavigation.IsParent = False Then
            Accessible = IsModuleaccessible(sNodeCode)
            For Each TempObj In Forms

                If TempObj.Name = sLink Then
                    If Not sNodeCode = "TL06" Then
                        TempObj.WindowState = 2
                    End If
                    TempObj.Show
                    If Not sNodeCode = "TL06" Then
                        TempObj.Caption = ""
                    End If
                    Find = True
                End If
            Next

            If Find = False Then
                If Accessible Then
                    MenuTab1.AddTab nNodeIndex, sNodeTxt, mpNavigation.SelectedNodeImage, sLink
                    If sNodeCode = "MF19" Then
                        RepName = "PD"
                    ElseIf sNodeCode = "MF17" Then
                        RepName = "MS"
                    End If
                    
                    Set FrmName = Forms.Add(sLink)
                    
                    oContainer.SetUpContainer FrmName, True
                    If Not sNodeCode = "TL06" Or sNodeCode = "RC01" Or sNodeCode = "RC02" Then
                        FrmName.WindowState = 2
                    End If
                    
                    WheelUnHook         'dave
                    
                    FrmName.Show
                    FrmName.Caption = ""
                    FrmName.SetFocus
                    
                    On Error Resume Next
                    WheelHook FrmName.dtgList         'dave

                    
                End If
            Else
                If Accessible Then
                    If Not sNodeCode = "TL06" Then
                        MenuTab1.AddTab nNodeIndex, sNodeTxt, mpNavigation.SelectedNodeImage, sLink
                    End If
                    
                End If
            End If
        End If

    ElseIf mpNavigation.SelectedTabText = "Report" Then
        If mpNavigation.IsParent = False Then

            MenuTab1.AddTab "Report Viewer", "Report Viewer", mpNavigation.SelectedNodeImage, "frmComUnionBusinessIntelligenceUser"
            For Each TempObj In Forms

                If TempObj.Name = "frmComUnionBusinessIntelligenceUser" Then
                    TempObj.Show
                    TempObj.BIUser1.CreateTab mpNavigation.SelectedNodeIndex, mpNavigation.SelectedNodeText
                    Find = True
                End If
            Next

            If Find = False Then
                mpNavigation.ReadNetworkMappingXML
                NM_LocalName = mpNavigation.LocalName
                NM_RemoteName = mpNavigation.RemoteName
                NM_UserName = mpNavigation.UserName
                NM_Password = mpNavigation.Password
                Set FrmName = Forms.Add("frmComUnionBusinessIntelligenceUser")
                FrmName.WindowState = 2
                FrmName.Show
                FrmName.BIUser1.CreateTab mpNavigation.SelectedNodeIndex, mpNavigation.SelectedNodeText
                 
            End If
        End If

    ElseIf mpNavigation.SelectedTabText = "Report Setup" Then
        If mpNavigation.IsParent = False Then

            MenuTab1.AddTab "Report Setup", " Report Setup", mpNavigation.SelectedNodeImage, "frmComUnionBusinessIntelligenceAdmin"
            For Each TempObj In Forms

                If TempObj.Name = "frmComUnionBusinessIntelligenceAdmin" Then
                    TempObj.Show
                    TempObj.BIAdmin1.CreateTab mpNavigation.SelectedNodeIndex, mpNavigation.SelectedNodeText
                    Find = True
 
                End If
            Next

            If Find = False Then
                Set FrmName = Forms.Add("frmComUnionBusinessIntelligenceAdmin")
                FrmName.WindowState = 2
                FrmName.Show
                FrmName.Caption = ""
                FrmName.BIAdmin1.CreateTab mpNavigation.SelectedNodeIndex, mpNavigation.SelectedNodeText
                
'                sIndex = mpNavigation.SelectedNodeIndex
                Set FrmName = Forms.Add(mpNavigation.SelectedNodeLink)
                
                oContainer.SetUpContainer FrmName, True
                
                FrmName.WindowState = 2
'                FrmName.Tag = sIndex
                FrmName.Show
                FrmName.Caption = ""
                
            End If
        End If

'    ElseIf mpNavigation.SelectedTabText = "Setup" Then
'        If mpNavigation.IsParent = False Then
'
'            MenuTab1.AddTab nNodeIndex, sNodeTxt, mpNavigation.SelectedNodeImage, sLink
'
'            For Each TempObj In Forms
'
'                If TempObj.Name = mpNavigation.SelectedNodeLink Then
'                    TempObj.Show
'                    Find = True
'
''                Else
''                    If TempObj.Tag <> "~" Then
''                        TempObj.Hide
''                    End If
'                End If
'            Next
'
'            If Find = False Then
'                Set FrmName = Forms.Add(sLink)
''                sIndex = nNodeIndex
'                mpNavigation.SelectedTabIndex = 3
'                oContainer.SetUpContainer FrmName, True
'
'                FrmName.WindowState = 2
''                FrmName.Tag = sIndex
'                FrmName.Show
'                FrmName.Caption = ""
'            End If
'        End If
'    End If
     ElseIf sTabTxt = "Setup" Then   'add by denz:1/25/2011
        If mpNavigation.IsParent = False Then
        If sNodeCode = "" Then
             MenuTab1.AddTab nNodeIndex, sNodeTxt, mpNavigation.SelectedNodeImage, sLink
                                Set FrmName = Forms.Add(sLink)
                    oContainer.SetUpContainer FrmName, True
                    FrmName.Show
                    FrmName.Caption = ""
                    FrmName.SetFocus
        Else
            If sNodeCode = "SC01" Then
                Accessible = True
            Else
                Accessible = IsModuleaccessible(sNodeCode)
            End If
        End If
            For Each TempObj In Forms

                If TempObj.Name = sLink Then
                    TempObj.Show
                    Find = True
                End If
            Next

            If Find = False Then
                If Accessible Then
                    MenuTab1.AddTab nNodeIndex, sNodeTxt, mpNavigation.SelectedNodeImage, sLink
                    Set FrmName = Forms.Add(sLink)
                    oContainer.SetUpContainer FrmName, True
                    FrmName.Show
                    FrmName.Caption = ""
                    FrmName.SetFocus
                    
                End If
            Else
                If Accessible Then
                        MenuTab1.AddTab nNodeIndex, sNodeTxt, mpNavigation.SelectedNodeImage, sLink
                End If
            End If
        End If
    End If
    DoEvents
    Call btnNavigation_Click
    
'mpNavValue(True) = False
End Sub

'Exit
Private Sub mpNavigation_ExitNodeClicked()
    Unload frmComUnionNavigator
    Unload frmComUnionMenuTab
        
    Unload Me
    Exit Sub
End Sub

Private Sub mpNavigation_GotFocus()
    Call MDIForm_Resize
    IsExpanded = True
End Sub

'Log Off
Private Sub mpNavigation_LogOffNodeClicked()
    Unload frmComUnionNavigator
    Unload frmComUnionMenuTab
    Unload Me
    MDIForm_Terminate
    Set rs = Nothing
    Set cn = Nothing
    
    If lBlockLogOn Then
        lBlockLogOn = False
        Exit Sub
    End If
    Load frmLogon
    frmLogon.Show
End Sub

Private Sub mpNavigation_LostFocus()
    Picture3_LostFocus
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MDIForm_Resize
End Sub

Private Sub Picture3_LostFocus()
    If IsExpanded = True Then
        IsExpanded = False
        nHide = NotExpanded
        Timer2.Enabled = True
    End If
End Sub

Private Sub tbrMain_ButtonClick(ByVal Button As MSComctlLib.Button)

        Select Case Button.Key
            Case "btnNew"
                mnuFileNew_Click
            Case "btnEdit"
                mnuFileEdit_Click
            Case "btnDelete"
                mnuFileDelete_Click
            Case "btnNewLine"
                mnuFileNewLine_Click
            Case "btnDeleteLine"
                mnuFileDeleteLine_Click
            Case "btnPost"
                mnuFilePost_Click
            Case "btnCancel"
                mnuFileCancel_Click
            Case "btnSave"
                mnuFileSave_Click
            Case "btnUndo"
                mnuFileUndo_Click
            Case "btnFind"
                If Button.ButtonMenus("btnFindP").Enabled Then
                    mnuFileFind_Click
                Else
                    mnuFileFindC_Click
                
                End If
            Case "btnFirst"
                MoveFirst
            Case "btnPrevious"
                MovePrevious
            Case "btnNext"
                MoveNext
            Case "btnLast"
                MoveLast
            Case "btnPrint"
                mnuFilePrint_Click
            Case "btnClose"
                mnuFileClose_Click
            Case "btnAccount"
                mnuFileAccount_Click
            Case "btnReference"
                mnuFileReference_Click
            Case "btnNotify"
                mnuFileNotify_Click
        End Select
End Sub

 
Private Sub UndoCurrentRecord()
    FrmName.TBUndoCurrent
    'ActiveForm.TBUndoCurrent
End Sub

 Private Sub MoveFirst()
    FrmName.TBFirstRec
End Sub

Private Sub MovePrevious()
    FrmName.TBPrevRec
End Sub

Private Sub MoveNext()
    FrmName.TBNextRec
End Sub

Private Sub MoveLast()
    FrmName.TBLastRec
End Sub

Private Sub tbrMain_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    Select Case ButtonMenu.Key
        Case "btnUndoCurrent"
            mnuFileUndo_Click
        Case "btnUndoAll"
            mnuFileUndoAll_Click
        Case "btnUndoCurrentLine"
            mnuDetailUndoCurrent_Click
        Case "btnFindC"
            mnuFileFindC_Click
        Case "btnFindP"
            'ActiveForm.TBFindPrimary
            FrmName.TBFindPrimary
    End Select
End Sub

Private Sub tbrMain_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo TheSource
Dim lError As Boolean
    lError = True
        If Me.ActiveForm.Name = "frmARAdjustments" Then
            tbrMain.Buttons("btnPost").ToolTipText = "Approve"
            lError = False
        Else
            tbrMain.Buttons("btnPost").ToolTipText = "Post"
        End If
TheSource:
    If lError Then tbrMain.Buttons("btnPost").ToolTipText = "Post"
    Resume Next
End Sub

Private Sub Timer1_Timer()
    sbMain.Panels(6) = Format(Now, "dddd, mmmm dd, yyyy hh:MM:ss AM/PM")
End Sub

Public Sub GetEmptySpace()
    empHeight = IIf(ITGLedgerMain.ScaleHeight <= 0, empHeight, ITGLedgerMain.ScaleHeight)
    empWidth = IIf(ITGLedgerMain.ScaleWidth <= 0, empWidth, ITGLedgerMain.ScaleWidth)
End Sub

Private Sub Timer2_Timer()
    If Picture3.Width > minWidth And Picture3.Width <= maxWidth Then '3975
        Picture3.Width = Picture3.Width - 200 '75
        Call MDIForm_Resize
    Else
        IsExpanded = False
        Timer2.Enabled = False
        Picture3.Width = minWidth
        nHide = NotExpanded
    End If
End Sub
